use Flap qw/-m -s -w/;

sub {
    my($dtv, $sr, $p) = @_;
    $dtv->{pl} = $p->compile($sr);
};
